﻿Public Class Inf_especialidadesVisitas
    Inherits System.Web.UI.Page
    Shared BanderaHayDatos As Boolean
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            FG.culturaPaginas()


        End If


    End Sub
    Private Sub SacaTasaBrutaEspecialidadesMasVisitadas()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el control 
        Chart1.DataBind()


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("Informes_EspecialidadesVisita_X_ano", param, "Muestra las especialidades mas visitadas-inf_especialidadeVisitadas")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        BanderaHayDatos = True

        FG.CargaControlChart_asp(Rs, Chart1, "Tasa de especialidades visitadas-nivel pais", DataVisualization.Charting.SeriesChartType.Bar, False, DataVisualization.Charting.AreaAlignmentOrientations.Horizontal, Drawing.Color.Blue, , , 500, 500, 100, True, , , , 100)





    End Sub

    Private Sub Muesto_tasa_Especiliadad_Visitada_X_sexo()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el control 
        lblTitulo_gv.Visible = False
        Gv_Datos.DataBind()


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("Informes_EspecialidadesVisita_X_ano_x_Sexo", param, "Muestra las especialidades mas visitadas-inf_especialidadeVisitadas")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        lblTitulo_gv.Visible = True


        Gv_Datos.DataSource = FG.cargaUnDataTable(Rs)
        Gv_Datos.DataBind()


    End Sub
    Private Sub Muestro_cant_x_Sexo()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el control 
        P_descriminadoPorSexo.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("Informes_EspecialidadesVisita_X_ano_x_SexoSINespecialidad", param, "Muestra las especialidades mas visitadas-inf_especialidadeVisitadas")

        'si no hay datos salgo 
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        P_descriminadoPorSexo.Visible = True

        Img_descriminado_x_sexo.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 420, 120, "", Drawing.Color.Blue)



    End Sub

    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click
        ''seteo el cartel 
        FG.SacaCartelDeAViso(LblMsje)
        '-------------------

        '---lo uso para saber si hay datos
        BanderaHayDatos = False
        '---------------------------------


        'sete la grilla
        lblTitulo_gv.Visible = False
        Gv_Datos.DataBind()
        '------------------------

        'seteo el panel de cantidad x sexo 
        P_descriminadoPorSexo.Visible = False
        ''''''''''''''''

        'dibujo el chart
        SacaTasaBrutaEspecialidadesMasVisitadas()

        'si hay datos voy a buscar el detalle 
        If BanderaHayDatos = True Then
            Muestro_cant_x_Sexo()
            Muesto_tasa_Especiliadad_Visitada_X_sexo()
        End If


        If BanderaHayDatos = False Then
            FG.MuestraCartel("No hay datos para mostrar", LblMsje)
        End If

    End Sub
End Class